
let incr : int ref -> unit =
  fun x -> x := !x + 1
